www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\popup.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ConnDB.asp"-->
<!--#include file="include/function.Common.asp"-->
<!--#include file="include/Deep.Class.Template.asp"-->
<!--#include file="include/function.tag.template.asp"-->
<!--#include file="include/function.tag.common.asp"-->

<%
dim ADCode_popup : ADCode_popup=""

id=request.QueryString("id")
If id<>"" and isNumeric(id) then
	sql = "SELECT * FROM deep_Advertisement WHERE fisView=1 and fid=" & id
	set rsAdvert = conn.execute(sql)
	If rsAdvert.eof And rsAdvert.bof Then
	else
		ADCode_popup=rsAdvert("fADCode") 
	End if
	rsAdvert.Close()
	Set rsAdvert = Nothing
End if

dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir="themes/"&site_theme&"/"

	oDeepTemplate.readTemplateFile("popup.template.html")	'调入文件

	'oDeepTemplate.replaceTag "../base.css","themes/base.css"
	oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
	
	do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
	
	oDeepTemplate.replaceTag "ADCode_popup",ADCode_popup	'广告弹窗内容
		
	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()
%>